home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 157 / 157.d81 / b.alien zoo (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  1KB  |  34 lines
  1. 5 poke55,0:poke56,52:clr
  2. 10 dv=peek(186):ifdv<8thendv=8
  3. 15 print"[147][159]":poke53280,0:poke53281,0:gosub100
  4. 20 sys57812"alien.spr",dv,0:poke780,.:poke781,.:poke782,52:sys65493
  5. 25 sys57812"f.alien zoo",dv,0:poke780,.:poke781,.:poke782,56:sys65493
  6. 30 sys57812"obj.racket c000",dv,0:poke780,.:poke781,.:poke782,192:sys65493
  7. 35 sys57812"sd.alien zoo",dv,0:poke780,.:poke781,.:poke782,197:sys65493
  8. 40 sys57812"swappymem",dv,0:poke780,.:poke781,.:poke782,198:sys65493
  9. 45 sys57812"zoo.levels",dv,0:poke780,.:poke781,.:poke782,200:sys65493
  10. 50 sys57812"zoo.screens",dv,0:poke780,.:poke781,.:poke782,72:sys65493
  11. 80 print"[144]load"chr$(34)"alien zoo"chr$(34)","dv
  12. 85 print"run"
  13. 90 poke631,13:poke632,13:poke198,2:end
  14. 100 poke214,9:print
  15. 110 print"[152][176][192][192][177][192][192][177][192][192][177][192][192][177][192][192][177][192][192][177][192][192][177][192][192][177][192][192][177][192][192][177][192][192][177][192][192][177][192][174][157][148][192]"
  16. 120 fori=.to3
  17. 130 forj=.to1:print"[221]                                     [221][157][148] ":next
  18. 140 ifi<>3thenprint"[179]                                     [171][157][148] "
  19. 150 next
  20. 160 print"[173][192][192][178][192][192][178][192][192][178][192][192][178][192][192][178][192][192][178][192][192][178][192][192][178][192][192][178][192][192][178][192][192][178][192][192][178][192][189][157][148][192]"
  21. 170 poke214,10:print
  22. 180 fori=.to10:print"[155]  [160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160]":next
  23. 200 poke214,11:print
  24. 210 fori=.to8:reada$:printtab(20-len(a$)/2)"[155]"a$:next
  25. 220 printtab(13)"[204][160][207][160][193][160][196][160][201][160][206][160][199][160]. . ."
  26. 230 return
  27. 10000 d=peek(186):n$="b.alien zoo":open15,d,15,"s0:"+n$:close15:saven$,d:end
  28. 10008 data"[193] [204] [201] [197] [206] [160][218] [207] [207]"
  29. 10010 data"by [212]he [198]ogweaver",
  30. 10020 data"([195]) 1997 by [202] & [198] [208]ublishing, [201]nc.",
  31. 10030 data"[212]his program is not shareware
  32. 10040 [131]"or in the (NULL)ublic str$omain.",
  33. 10050 [131]"1-800-594-3370 or 1-318-221-8718"
  34.